home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / boundingBoxTests / cone(doubleRotate).mdl / model.eve
Encoding:
Text File  |  1995-04-23  |  921 b   |  32 lines
  1. set cone(color) {1.0 0.0 0.0}
  2. set cone(height) 2.0
  3. set cone(radius) 1.0
  4. set cone(thetaMax) 360.0
  5. set cone(xScale) 1
  6. set cone(yScale) 1
  7. set cone(zScale) 1
  8. set cone(xTranslate) 0
  9. set cone(yTranslate) 0
  10. set cone(zTranslate) 0
  11. set cone(xRotate) 0
  12. set cone(yRotate) 0
  13. set cone(zRotate) 0
  14. set cone(xRotate2) 0
  15. set cone(yRotate2) 0
  16. set cone(zRotate2) 0
  17.  
  18. loadControlPanel controls.nib
  19.  
  20. startShape aCone
  21.   animatable: {Color $cone(color)}
  22.   animatable: {Scale $cone(xScale) $cone(yScale) $cone(zScale)}
  23.   animatable: {Translate $cone(xTranslate) $cone(yTranslate) $cone(zTranslate)}
  24.   animatable: {Rotate $cone(xRotate) 1 0 0 }
  25.   animatable: {Rotate $cone(yRotate) 0 1 0 }
  26.   animatable: {Rotate $cone(zRotate) 0 0 1 }
  27.   animatable: {Rotate $cone(xRotate2) 1 0 0 }
  28.   animatable: {Rotate $cone(yRotate2) 0 1 0 }
  29.   animatable: {Rotate $cone(zRotate2) 0 0 1 }
  30.   animatable: {Cone $cone(height) $cone(radius) $cone(thetaMax)}
  31. endShape
  32.